﻿Imports System.Data.SqlClient
Public Class frmPadreMenores
    Public dvVista As DataView

    Private Sub frmPadreMenores_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Texto que nos servirá para hacer el filtro
        'Dim vFiltro As String
        Dim SQLBuscar As String
        Try
            'vFiltro = "DescripcionDepartamento"
            SQLBuscar = "DescripcionDepartamento like '%" + txtBuscar.Text.Trim + "%'"
            dvVista.RowFilter = SQLBuscar
            gcPadreMenores.DataSource = dvVista
            gcPadreMenores.Update()
        Catch ex As Exception
            MsgBox(ex.Message, 48)
        End Try
    End Sub

End Class